Thema Datum  Von Nutzer Rating
Antwort
Rot VBA -> Aktuelle Zeile
 24.11.2015 18:22:51 Kai
NotSolved
24.11.2015 19:09:37 Gast38241
NotSolved
24.11.2015 22:05:21 Kai
NotSolved
25.11.2015 08:47:41 Gast42339
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
24.11.2015 18:22:51		 Views:
1100		 Rating:
     
Antwort:
  Ja
Thema:
VBA -> Aktuelle Zeile

Hallo Zusammen,

hänge nun seit gut 2 Stunden an einem Problem. Ich benötige die aktuelle Zeile einer EACH Abfrage um die Werte einer Zelle in ein ARRY zu speichern.

Leider bekomme ich es nicht hin, das während des EACH den Wert abzugreifen.

 

Sub test()
Dim strNames(20) As String
Dim a As Integer
Dim Inhalt As String
Dim strText As String
strText = " Es gibt Einträge +8"
Dim intCounter As Integer
Dim cell As Range
For Each cell In Range("F1:F454")
    If cell.Value >= DateAdd("d", 1, Now()) And cell.Value <= DateAdd("d", 8, Now()) Then
    intCounter = intCounter + 1
    a = cell.Rows.Count
    strNames(intCounter) = Cells(a, 1).Value
    MsgBox a
End If
Next cell
 For i = 1 To intCounter
        Inhalt = Inhalt & "AB NR." & strNames(i) & Chr(13)
    Next i
    MsgBox "Folgende Aufträge müssen innerhalb von 8 Tagen geliefert werden:" & Chr(13) & Inhalt


End Sub

"strNames" ist die Variable, in der, der Inhalt der 1 Spalte aus der aktuellen Zeile gespeichert werden soll. Aktuelle Zeile heißt, welche IF = Ture in dem Moment ist.

 

 

Ich hoffe Ihr könnt mir helfen.

 

Viele Grüße

Kai

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA -> Aktuelle Zeile
 24.11.2015 18:22:51 Kai
NotSolved
24.11.2015 19:09:37 Gast38241
NotSolved
24.11.2015 22:05:21 Kai
NotSolved
25.11.2015 08:47:41 Gast42339
NotSolved